program DataFiles;
type
   StudentRecord = Record
      apellido: String;
      nombre: String;
      telefono: String;
   end;
var
   Student: StudentRecord;
   f: file of StudentRecord;
begin
   assign(f, 'c:\temp\fichero.dat');
   reset(f);
   while not eof(f) do
   begin
      read(f,Student);
      writeln('apellido: ',Student.apellido);
      writeln('nombre: ',Student.nombre);
      writeln('telefono: ',Student.telefono);
   end;
   close(f);
   readln();
end.
